1 RN=INT(RND(-TI)*10)
2 QY=0:WA=0:F5=INT(RND(1)*7)+2:F6=INT(RND(1)*7)+2:K5=10:K6=10
3 S3=54296:S4=54276:S5=54277:S6=54273:S7=54272
4 W1=54296:W2=54276:W3=54277:W4=54273:W5=54272
5 A=0:PRINT"[147]PLEASE STAND BY"
6 A=A+1
7 IF A=15THEN POKE W2,0:GOTO50
8 POKE W1,A:POKE W3,47:POKE W4,253:POKE W5,46:POKE W2,128
9 GOTO 6
50 IF SW=1THEN 70
55 SW=1
60 LOAD"BASEBALL DATA.D",8,1
70 GOTO 30000
139 J=1:K=1:L=1:RU=0:M=1:N=1
140 P1=INT(RND(1)*9)+1
141 P2=INT(RND(1)*9)+1
150 FOR A=1TO9
151 A(A)=INT(RND(1)*275)+100
152 C(A)=INT(RND(1)*275)+100
155 NEXT
156 PRINT"[147]"
157 PRINT"POSSIBLE TEAM COLOURS: 0-BLACK 1-WHITE"
158 PRINT"3-CYAN 4-PURPLE 5-GREEN 8-ORANGE "
159 PRINT"14-BLUE 12-GRAY 7-YELLOW"
161 INPUT"TEAM 1 NAME:";N1$:INPUT"TEAM 1 COLOUR:";C1$:C1=VAL(C1$)
162 INPUT"TEAM 2 NAME:";N2$:INPUT"TEAM 1 COLOUR:";C2$:C2=VAL(C2$)
163 PRINT"[147]"
164 PRINT"     ";N1$;"         ";N2$
165 PRINT"   BAT.       AV.    BAT.     AV."
166 FOR A=1 TO 9
167 PRINT"   ";A;"      .";A(A);"   ";A;"    .";C(A)
168 NEXT
169 PRINT"PITCHER 1:";F5+INT(RND(1)*4)-2,"PITCHER 2:";F6+INT(RND(1)*4)-2
170 GET W$
171 IF W$=""THEN170
199 E1=0:E2=0:H1=0:H2=0:R1=0:R2=0:I=1
200 FOR A=1TO9
201 F(A)=0:S(A)=0
202 NEXT
210 PRINT"[147]":V=53248:POKE V+21,0
213 PRINT"          1  2  3   4  5  6   7  8  9 ":PRINT:PRINT
214 PRINTN1$
215 PRINTN2$
216 PRINT"[145][145][145]"
217 PRINT"";F(1);F(2);F(3);" ";F(4);F(5);F(6);" ";F(7);F(8);F(9)
218 PRINT"";S(1);S(2);S(3);" ";S(4);S(5);S(6);" ";S(7);S(8);S(9)
219 PRINT:PRINT:PRINT
220 PRINT"             RUNS   HITS   ERRORS"
230 PRINTN1$
231 PRINTN2$
232 PRINT"[145][145][145]"
233 PRINT"";R1;"    ";H1;"    ";E1
234 PRINT"";R2;"    ";H2;"    ";E2
240 PRINT"INNING:";I
250 I=I+.5
255 IF I=10 THEN 257
256 GOTO 259
257 IF R1<R2THEN END
259 IF I=10.5ANDR1<>R2THEN END
260 IF I>F5THEN K5=K5-INT(RND(1)*2)+1
261 IF I>F6THEN K6=K6-INT(RND(1)*2)+1
262 IF K5<2THEN K5=2
263 IF K6<2THEN K6=2
264 IF I=10.5ANDR1=R2THEN I=1:FORA=1TO9:S(A)=0:F(A)=0:NEXT:GOTO210
270 IFJ=1 THEN J=0:GOTO 290
271 IF J=0 THEN J=1:GOTO290
290 GETW$:IF W$="P"THEN 293
291 IF W$="G"THEN 296
292 GOTO290
293 GETW$:IF W$="[133]"THEN F5=INT(RND(1)*3)+F5:PRINT"PITCHER 1:";F5:K5=10:GOTO290
294 IF W$="[134]"THEN F6=INT(RND(1)*3)+F6:PRINT"PITCHER 2:";F6:K5=10:GOTO290
295 GOTO 293
296 IF QY=1THEN GOTO300
299 SR=0:O=0:BA=0:B(1)=0:B(2)=0:B(3)=0:PRINT"":U=0:Z=0:G=0
300 X1=0:POKE 53281,6:PRINT"[147]":QY=1:HQ=100:WA=0
301 PRINT"[154] STRIKES:";SR,"BALLS:";BA
302 PRINT" OUTS   :";O,"MEN ON:"B(1);B(2);B(3)
303 IF J=0THENPRINT " AT BAT:";M,"AVERAGE:.";A(M)
304 IF J=1THENPRINT " AT BAT:";N,"AVERAGE:.";C(N)
306 PRINT""
309 PRINT" [151] [162][162][162][162][162][162] "
310 PRINT"                                       [146][154]"
330 V=53248:POKEV+0,220:POKEV+1,193:POKEV+39,C1:POKE V+21,7
331 POKE V+2,50:POKE V+3,188:POKE V+40,C2
332 POKE V+4,250:POKE V+5,192:POKE V+41,C2
333 POKE V+23,7:POKE V+29,7
334 M1=248:M2=245:M3=244:X=80:Y=195
340 POKE 2040,M1:POKE 2042,M3:POKE 2041,M2
350 T1=-((PEEK(56321)AND 16)=0)
360 IF T1=1THEN 370
361 GETW$:IF W$="[133]"THEN F5=INT(RND(1)*3)+F5:PRINT"PITCHER 1:";F5:K5=10:GOTO3999
362 IF W$="[134]"THEN F6=INT(RND(1)*3)+F6:PRINT"PITCHER 2:";F6:K5=10:GOTO3999
363 I9=PEEK(56320)AND15
364 IF I9=14THEN 20000
365 GOTO 350
370 J1=PEEK(56321)AND15
371 IF J1=11 THENS=14:H=3:T=2:GOTO376
372 IF J1=15THEN S=18:H=2:T=5:GOTO380
373 IF J1=7 THENS=19:H=3:T=1:GOTO380
374 IF J1=14 THEN S=10:T=15:H=1:GOTO380
375 IF J1=13 THEN S=16:H=2:T=2:GOTO376
376 IF J=0THEN Q8=K5
377 IF J=1THEN Q8=K6
378 Q9=INT(RND(1)*Q8):IF Q9=0THEN J1=7:GOTO 371
379 IF Q9=1THEN J1=15:GOTO 371
380 POKE 2041,M2
385 FOR A=OTO50:NEXT
386 M2=M2+1
387 IF M2=248 THEN 390
388 GOTO 380
390 V=53248:POKE 2043,255:POKE V+6,X:POKEV+7,Y:POKE V+42,1:POKE V+21,15
400 T2=-((PEEK(56320)AND 16)=0)
410 IF T2=1 THEN Z=1
412 IF Z=0THEN 420
414 M1=M1+1
415 IF M1=252THENM1=251
416 POKE 2040,M1
420 X=X+S:IF Y<0THENY=0
421 IF X>243 THEN POKEV+21,7:POKE 54296,0:POKE 54296,15:GOTO470
422 GOTO 450
425 X1=X1+1
430 IF X1=T THENY=Y+H:X1=0
432 IF Y>217THENY=Y-5
433 IF Y>240THEN 300
440 GOTO 390
450 IF X>233THEN 425
451 IF X>212 THEN 500
452 GOTO 425
470 IF Z=1THEN 480
471 IF J1=7THEN BA=BA+1:GOTO494
472 IF J1=14 THEN BA=BA+1:GOTO494
473 IF J1=15 THEN BA=BA+1:GOTO494
474 IF J1=10 THEN BA=BA+1:GOTO494
475 IF J1=9 THEN BA=BA+1:GOTO494
476 IF J1=6 THEN BA=BA+1:GOTO494
477 IF J1=5 THEN BA=BA+1:GOTO494
480 SR=SR+1:Z=0:PRINT"[145][145][145][145][145][145][145][145]STRIKE!":FOR A=0TO2000:NEXT
481 IF SR=3THEN SR=0:BA=0:O=O+1:PRINT"YOU'RE OUT!":GOTO6000
482 GOTO 300
490 IF O=3THENGOTO2000
491 GOTO300
494 PRINT"[145][145][145][145][145][145][145][145]BALL!":FOR A=0TO2000:NEXT
495 IF BA=4 THEN BA=0:SR=0:GOTO7000
496 GOTO 300
500 IF M1=250THEN 505
501 IF M1=249THEN 505
504 GOTO 425
505 IF J1=15THEN R=3
506 IF J1=11THEN R=3
507 IF J1=14THEN R=6
508 IF J1=13THEN R=2
509 IF J1=7THEN R=6
510 HI=INT(RND(1)*R)
511 IF HI=0 THEN HT=1
512 IF HT=1 THEN HT=0:GOTO 3000
513 GOTO 425
540 M1=251:POKE 2040,M1
541 POKE54296,0:POKE 54277,47:POKE 54273,253:POKE 54272,46:POKE 54276,129
550 IF J1=13 THEN R=6
551 IF J1=14 THEN R=2
552 IF J1=7THEN R=2
553 IF J1=15 THEN R=4
554 IF J1=11 THEN R=6
555 HT=INT(RND(1)*R):X1=0
556 IF HT=0 THEN S=5:H=1:T=1:AU=2:GOTO570
557 IF HT=1 THEN S=6:H=-10:T=2:AU=5:GOTO570
558 IF HT=2 THEN S=6:H=-1:T=1:AU=3:GOTO570
559 IF HT=3 THEN S=10:H=1:T=1:AU=10:GOTO570
560 IF HT=4 THEN S=5:H=-2:T=5:AU=6:GOTO570
561 IF HT=5 THEN S=15:H=-5:T=1:AU=15:GOTO570
570 POKE V+6,X:POKE V+7,Y
571 POKE 54296,AU
575 X=X-S
576 IF X<0THEN 600
577 X1=X1+1
578 IF X1=TTHEN Y=Y+H:X1=0
579 IF Y>217 THEN Y=Y-5
580 IF Y<0THEN Y=0:GOTO 600
590 GOTO 570
600 V=53248:POKE V+21,0:PRINT"[147]""":M4=252:POKE V+21,15:X1=0
601 E=100:F=210:X=255:Y=Y+10
605 POKE V+2,0:POKE V+3,255:POKE V+4,0:POKE V+5,0
606 MA=0
610 PRINT"   [144][161]"
611 PRINT"   [144][161]"
612 PRINT"   [144][161]"
613 PRINT"   [144][161]"
614 PRINT"   [144][161]"
615 PRINT"   [144][161]"
616 PRINT"                                      [146][154]"
620 M4=252:POKE 2040,M4:POKE V+0,E:POKE V+1,F:POKE V+39,C2
630 J1=PEEK(56321)AND15
640 IF J1=11 THEN E=E-5:M4=252:POKE 2040,M4
650 IF J1=7 THEN E=E+5:M4=252:POKE 2040,M4
655 IF E<40THENE=40
656 IF E>255THEN E=255
660 IF HT=0 THEN S=5:H=INT(RND(1)*2)+1:T=1:BO=5
670 IF HT=1 THEN S=6:H=INT(RND(1)*10)+10:T=2:BO=20
680 IF HT=2 THEN S=6:H=INT(RND(1)*5)+1:T=1:BO=5
690 IF HT=3 THEN S=10:H=INT(RND(1)*5)+1:T=1:BO=5
700 IF HT=4 THEN S=5:H=INT(RND(1)*6)+2:T=3:BO=7
710 IF HT=5 THEN S=15:H=INT(RND(1)*10)+5:T=1:BO=16
719 IF HT=5 THEN X=INT(RND(1)*20)+234
720 IF HT<>5THEN GOTO 750
721 IF J=0THEN PU=A(M)
722 IF J=1THEN PU=C(N)
723 IF PU>300THEN HR=30:GOTO 726
724 HR=50
726 HQ=INT(RND(1)*HR)
727 IF HQ<5 THENS=15:H=2:T=1:BO=10
750 M4=252:POKE 2040,M4:POKE V+0,E:POKE V+1,F:POKE V+40,39:POKE V+21,9
760 J1=PEEK(56321)AND15
780 IF J1=11 THEN E=E-5:M4=253:POKE 2040,M4
790 IF J1=7 THEN E=E+5:M4=253:POKE 2040,M4
800 IF E<40THENE=40
810 IF E>255THEN E=255
820 POKE 2043,255:POKE V+6,X:POKE V+7,Y:POKE V+42,1
830 X1=X1+1
840 IF X1=T THEN Y=Y+H:X1=0
850 IF Y>231 THEN Y=Y-BO:G=1
855 X=X-S
856 IF HQ<5THEN GOTO 869
860 IF X<30 THEN X=31:WA=1
861 T1=-((PEEK(56321)AND16)=0)
862 IF T1=1 THEN U=1
863 IF U=0THEN GOTO867
864 F=F-4
865 IF F<195 THEN F=210:U=0
867 MA=MA+PEEK(V+30)AND8
868 IF MA=0THEN:GOTO900
869 IF X<0THEN 9000
870 GOTO 750
900 POKE V+21,1:F=210:POKE V+0,E:POKE V+1,F
901 POKE 54296,0:POKE 54296,15:POKE 54276,0
919 GOTO 921
920 POKE 2040,254:GOTO940
921 J9=PEEK(56321)AND15
922 IF J9=14THEN J9=2:GOTO920
923 IF J9=13THEN J9=4:GOTO920
924 IF J9=11THEN J9=3:GOTO920
925 IF J9=7 THEN J9=1:GOTO920
930 GOTO 921
940 Y=210:X=E+10
950 POKE V+21,9:POKE 2043,255:POKE V+6,X:POKE V+7,Y
960 X=X+5
970 IF X>255 THENZ=0:GOTO1000
980 GOTO 950
1000 IF J=0THEN PE=A(M)
1001 IF J=1THEN PE=C(N)
1002 IF HT=0 THEN 1100
1010 IF HT=1 THEN 1200
1020 IF HT=2 THEN 1300
1030 IF HT=3 THEN 1400
1040 IF HT=4 THEN 1500
1050 IF HT=5 THEN 1600
1100 IF PE>250 THEN HR=3:GOTO1150
1101 HR=4
1150 HQ=INT(RND(1)*HR)
1152 IF HQ=1THEN AB=1:GOTO1800
1153 GOTO 1900
1200 IF G=0THEN GOTO1900
1210 IF PE>300THEN HR=2:GOTO1250
1211 HR=1
1250 HQ=INT(RND(1)*HR)
1251 IF HQ=0THEN AB=1:GOTO 1800
1252 IF HQ=1THEN AB=2:GOTO 1800
1253 GOTO1900
1300 IF G=0THENGOTO1900
1301 HQ=INT(RND(1)*3)
1310 IF HQ=1THENAB=1:GOTO 1800
1400 IF PE>330 THEN HR=3:GOTO1450
1410 IF PE>200 THEN HR=2:GOTO1450
1411 HQ=INT(RND(1)*3)
1412 IF HQ=2THEN AB=1:GOTO1800
1413 IF WA=1THEN WA=0:AB=1:GOTO11000
1420 GOTO1900
1450 HQ=INT(RND(1)*HR)+2
1452 IF HQ=3THENAB=1:GOTO1800
1453 IF HQ=4THENAB=2:GOTO1800
1454 GOTO1900
1500 IF G=0THEN 1900
1510 IFPE>250THENHR=3:GOTO1550
1520 AB=1:GOTO1800
1550 HQ=INT(RND(1)*HR)
1551 IF HQ=0THEN AB=2:GOTO1800
1552 IF HQ=1THEN 1900
1553 AB=1:GOTO 1800
1600 IF G=0THEN 1900
1610 IF PE>340THEN AB=3:GOTO1800
1620 HQ=INT(RND(1)*3)
1625 IF HQ=0THEN AB=2:GOTO1800
1630 AB=1:GOTO 1800
1800 G=0
1801 IF AB=1THEN PRINT"[145][145][145][145][145][145][145][145]SINGLE!":FOR A=0TO200:NEXT:GOTO 5000
1802 IF AB=2THEN PRINT"[145][145][145][145][145][145][145][145]DOUBLE!":FOR A=0TO200:NEXT:GOTO 5000
1803 IF AB=3THEN PRINT"[145][145][145][145][145][145][145][145]TRIPLE!":FOR A=0TO200:NEXT:GOTO 5000
1900 G=0
1902 IF HT=3THEN1949
1903 IF HT=0THEN1949
1905 PRINT"[145][145][145][145][145][145][145][145]OUT!":O=O+1:FOR A=0TO2000:NEXT
1906 IF O=3THEN 2000
1907 SR=0:BA=0
1908 IF J=0THEN M=M+1
1909 IF M>9THENM=1
1910 IF J=1THEN N=N+1
1911 IF N>9THEN N=1
1912 GOTO300
1949 OT=INT(RND(1)*4)
1950 IF J9=1THEN1961
1951 IF J9=2THEN1969
1952 IF J9=3THEN1979
1953 IF J9=4THEN1989
1960 OT=INT(RND(1)*4)
1961 IF OT=1THEN AB=1:GOTO 1800
1962 GOTO 1905
1969 IF OT=1THEN AB=1:GOTO 1800
1970 IF B(1)=1THEN B(1)=0:AB=1:PRINT"[145][145][145][145][145][145][145][145]OUT 2":GOTO 1974
1972 AB=1:GOTO 1800
1974 FOR A=0TO2000:NEXT:O=O+1
1975 IF O=3THEN2000
1976 GOTO 5000
1979 IF OT=1THEN AB=1:GOTO 1800
1980 IF B(2)=1THEN B(2)=0:AB=1:PRINT"[145][145][145][145][145][145][145][145]OUT 3":GOTO1985
1981 AB=1:GOTO 1800
1985 O=O+1:FOR A=0TO2000:NEXT
1986 IF O=3THEN2000
1987 GOTO 5000
1989 IF OT=1THEN AB=1:GOTO 1800
1990 IF B(3)=1THEN B(3)=0:AB=1:PRINT"[145][145][145][145][145][145][145][145]OUT 4":GOTO1995
1992 AB=1:GOTO1800
1995 FORA=0TO2000:NEXT:O=O+1
1996 IF O=3THEN 2000
1997 GOTO5000
2000 IFJ=0THEN2006
2005 IF J=1 THEN 2007
2006 F(L)=RU:R1=R1+RU:O=0:L=L+1:C2=C1:C1=VAL(C2$):RU=0:BA=0:SR=0:GOTO8000
2007 S(K)=RU:R2=R2+RU:O=0:K=K+1:C2=C1:RU=0:C1=VAL(C1$):BA=0:SR=0:GOTO8000
3000 W1=54296:W2=54276:W3=54277:W4=54273:W5=54272
3001 A=15
3002 A=A-1
3003 IF A=10THEN POKEW2,0:GOTO540
3004 POKE W1,A:POKE W3,7:POKE W4,40:POKE W5,200:POKE W2,129
3005 GOTO 3002
3999 AB=1
4000 W1=54296:W2=54276:W3=54277:W4=54273:W5=54272:A9=0
4001 A=0:A9=A9+1
4002 A=A+1
4003 IF A=15THEN GOTO 4500
4004 POKE W1,A:POKE W3,47:POKE W4,253:POKE W5,46:POKE W2,129
4005 GOTO 4002
4500 W1=54296:W2=54276:W3=54277:W4=54273:W5=54272
4501 A=15
4502 A=A-1
4503 IF A=0THEN POKE W1,15:POKE W2,0:GOTO4600
4504 POKE W1,A:POKE W3,175:POKE W4,253:POKE W5,46:POKE W2,129
4505 GOTO 4502
4600 IF A9=ABTHEN 300
4601 GOTO4001
5000 IF J=0THEN M=M+1:H1=H1+1
5001 IF J=1THEN N=N+1:H2=H2+1
5002 IF N>9THEN N=1
5003 IF M>9THEN M=1
5004 BA=0:SR=0
5005 IF B(1)=0 THEN B(1)=1:GOTO 5100
5006 IF B(1)=1THEN B(1)=1:B(2)=B(2)+1:GOTO5150
5100 IF B(2)=1THEN B(3)=B(3)+1:B(2)=0:IF B(3)=1THEN 5200
5101 IF B(3)=2THEN B(3)=1:RU=RU+1:GOTO 5200
5103 IF B(3)=1THEN B(3)=0:RU=RU+1
5104 GOTO 5200
5150 IF B(2)=2THEN B(3)=B(3)+1:B(2)=1
5151 IF B(3)=2THEN RU=RU+1:B(3)=1
5200 IF AB=1THEN4000
5202 IF B(1)=1THEN B(1)=0:B(2)=B(2)+1:IF B(2)=1THEN 5303
5203 IF B(2)=2THEN B(3)=B(3)+1:B(2)=1:IF B(3)=1THEN 5400
5204 IF B(3)=2THEN B(3)=1:RU=RU+1:GOTO 5400
5300 IF B(2)=1THEN B(3)=B(3)+1:B(2)=0:IF B(3)=1THEN 5400
5301 IF B(3)=2THEN B(3)=1:RU=RU+1:GOTO 5400
5303 IF B(3)=1THEN B(3)=0:RU=RU+1
5304 GOTO 5400
5400 IF AB=2THEN GOTO4000
5402 IF B(1)=1THEN B(1)=0:B(2)=B(2)+1:IF B(2)=1THEN 5503
5403 IF B(2)=2THEN B(3)=B(3)+1:B(2)=1:IF B(3)=1THEN 5600
5404 IF B(3)=2THEN B(3)=1:RU=RU+1:GOTO 5600
5500 IF B(2)=1THEN B(3)=B(3)+1:B(2)=0:IF B(3)=1THEN 5600
5501 IF B(3)=2THEN B(3)=1:RU=RU+1:GOTO 5600
5503 IF B(3)=1THEN B(3)=0:RU=RU+1
5504 GOTO 5600
5600 GOTO4000
5998 IF J=0THEN H1=H1+1
5999 IF J=1THEN H2=H2+1
6000 IF J=0THEN M=M+1
6001 IF M>9THEN M=1
6002 IF J=1THEN N=N+1
6003 IF N>9THEN N=1
6004 IF O=3THEN FOR A=0TO2000:NEXT:GOTO2000
6005 FOR A=0TO500:NEXT:GOTO 300
7000 IF B(1)=0THEN B(1)=1:GOTO300
7001 IF B(1)=1THEN B(2)=B(2)+1:B(1)=1:IF B(2)=1THEN 300
7002 B(3)=B(3)+1:B(2)=1:IF B(3)=1THEN 300
7003 RU=RU+1:B(3)=1:GOTO300
8000 B(1)=0:B(2)=0:B(3)=0:GOTO210
9000 PRINT"[145][145][145][145][145][145][145][145]HOME RUN!":FOR A=0TO2000:NEXT
9010 RU=RU+1:SR=0:BA=0
9011 IF B(1)=1THEN B(1)=0:RU=RU+1
9012 IF B(2)=1THENB(2)=0:RU=RU+1
9013 IF B(3)=1THEN B(3)=0:RU=RU+1
9020 Z=0:GOTO5998
11000 IF J=0THEN E2=E2+1:H1=H1-1:PRINT"[145][145][145][145][145][145][145][145]ERROR!":GOTO11050
11001 IF J=1THEN E1=E1+1:H2=H2-1:PRINT"[145][145][145][145][145][145][145][145]ERROR!":GOTO 11060
11050 FOR A=0TO2000:NEXT:AB=1:GOTO5000
11060 FOR A=0TO2000:NEXT:AB=1:GOTO5000
20000 IF B(3)=1THEN I3=100:GOTO21000
20010 IF B(2)=1THEN I3=80:GOTO21000
20020 IF B(1)=1THEN I3=50:GOTO21000
20030 GOTO 370
21000 I4=INT(RND(1)*I3)
21100 IF I4<10THEN 22000
21150 PRINT"[145][145][145][145][145][145][145][145]CAUGHT STEALING!":O=O+1:FOR A=0TO200:NEXT:GOTO23000
22000 PRINT"[145][145][145][145][145][145][145][145]SAFE!!!":AB=1:FOR A=0TO200:NEXT
22100 IF B(3)=1THEN RU=RU+1:GOTO4000
22200 IF B(2)=1THEN B(2)=0:B(3)=1:GOTO 4000
22300 IF B(1)=1THEN B(1)=0:B(2)=1:GOTO 4000
23000 IF B(3)=1THEN B(3)=0:GOTO 6000
23100 IF B(2)=1THEN B(2)=0:GOTO6000
23200 IF B(1)=1THEN B(1)=0:GOTO6000
30000 POKE 53280,0:POKE53281,0
30001 PRINT"[147]"
30002 PRINT"    [209][209]   [209][160][160][160][209][209][160][209][209][209][160][209][209][160][160][160][209][160][160][209][160][160][160][209]  "
30003 PRINT"    [209][160][209][160][209][160][209][160][209][160][160][160][209][160][160][160][209][160][209][160][209][160][209][160][209]   [209]  "
30004 PRINT"    [209][209] [160][209][209][209][160][160][209][160][160][209][209][160][160][209][209]  [209][209][209][160][209][160][160][160][209]  "
30005 PRINT"    [209][160][209][160][209][160][209][160][160][160][209][160][209][160][160][160][209][160][209][160][209][160][209][160][209]   [209]  "
30006 PRINT"    [209][209][160][160][209][160][209][160][209][209]  [209][209][209][160][209][209] [160][209][160][209][160][209][209][209][160][209][209][209]"
30007 PRINT"               BY"
30008 PRINT"                   ROBERT COOPER"
30009 GETG$:IF G$><""THENPOKE 53280,14:POKE 53281,6:PRINT"[147]":GOTO139
30010 GOTO 30009